Admin_ImagesHide.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_ImagesHide.asp
    <!--#include file="Admin_ChkPurview1.asp"-->
<%
if Netout.GetCookie("Self")="0" then
	Netout.WriteErrMsg("<br><li>对不起，您没有管理图片的权限！</li>")
	Response.End()
end if

Sql="select a.titleID,a.ClassID,a.titleName,a.iClick,a.ManuName,b.IsHide,b.AddTime,b.ID,b.ImageFile,b.FileExt from NT_title as a,NT_imgbook as b where b.titleID=a.titleID and a.iCount<>0 and b.IsHide=1"
if Not Netout.Master and Netout.GetCookie("Manage")="0" and Netout.GetCookie("Self")="1" then
	sql=sql&" and a.TitleUser='"&Netout.UserName&"'"
end if
sql=sql&" order by a.AddTime Desc,b.Id desc"
%>
<html>
<head>
<title>无标题文档</title>
<SCRIPT language=javascript>
function unselectall(){
    if(document.myform.chkAll.checked){
		document.myform.chkAll.checked = document.myform.chkAll.checked&0;
    } 	
}
function CheckAll(form){
	for (var i=0;i<form.elements.length;i++){
		var e = form.elements[i];
		if (e.Name != "")
		e.checked = form.chkAll.checked;
	}
}
</SCRIPT>
<script language="javascript" src="Inc/Pop.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim title,Link,strFile,CurrentPage,rs
Title="隐 藏 图 片 管 理"
Link="<a href='Admin_Add.asp?TypeID=1' class='black'>添加图片</a> | <a href='Admin_Images.asp' class='black'>管理图片</a> | <a href='Admin_User.asp' class='black'>管理用户</a> | <a href='Admin_Class.asp' class='black'>管理分类</a> | <a href='Admin_SiteConfig.asp' class='black'>系统配置</a>"

strFile="Admin_ImagesHide.asp?"
CurrentPage = Netout.CheckStr(request.QueryString("page"),1)

With Behind
	.WriteHtmlHead
	.WriteHtmlTop Title,Link
	.MaxPerPage	 = 18
	.TopPage	 = False
	.BottomPage	 = True
	.SqlRecord	 = sql
	.InitText	 = "张隐藏图片"
	.strFileName = strFile
	.ShowRecord CurrentPage
	.WriteHtmlEnd
End With
set Behind=nothing

Sub ShowContent(MaxPerPage)
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <form name="myform" method="Post" action="Admin_ImagesDel.asp">
    <tr> 
      <td colspan="2"><table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
          <tr class="tdbg1"> 
            <td class="tdbg1" width="6%">
			<div align="center"><b>选中</b></div></td>
            <td class="tdbg1" width="30%">
			<div align="center"><b>所属组图</b></div></td>
            <td class="tdbg1" width="8%">
				<div align="center"><b>点击数</b></div></td>
            <td class="tdbg1" width="14%">
				<div align="center"><b>上传日期</b></div></td>
            <td class="tdbg1" width="12%">
				<div align="center"><b>图片署名</b></div></td>
            <td class="tdbg1" width="24%">
				<div align="center"><b>操作</b></div></td>
          </tr>
		<%i=0
		set titleID=rs("titleID"):set titleName=rs("titleName")
		Set ImageFile = rs("ImageFile")
		Do While Not rs.Eof and i<MaxPerPage
			if Config.WaterMark(0) = "1" then
				PicUrl=Config.ImagePath(2)&ImageFile
			else
				PicUrl=Config.ImagePath(0)&Replace(ImageFile,".jpg","."&Rs("FileExt"))
			end if
		%>			
          <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EBEBEB'"> 
            <td align="center"><input name='ImageId' type='checkbox' onclick="unselectall()" id="ImageId" value='<%=Rs("Id")%>'></td>
            <td title="<img src=<%=PicUrl%> width=100>" style="cursor: hand; padding-left: 5px;"><%=Netout.CutStr(titleName,30)%></td>
            <td align="center"><%=rs("iClick")%></td>
            <td align="center"><%=formatdatetime(rs("AddTime"),2)%></td>
            <td align="center"><%=rs("ManuName")%></td>
            <td align="center"><a href="Admin_ImagesDel.asp?Action=Hide&vAction=0&ImageId=<%=Rs("Id")%>" class="black">不隐藏</a>
            </td>
          </tr>
			<%i=i+1
			Set rsImage = Nothing
		rs.MoveNext
		loop%>
        </table>
      <br></td>
    </tr>
    <tr> 
      <td width="30%" height="20">&nbsp;&nbsp;
	  	<input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
        选中本页所有组图</td>
      <td>
        <input name="Action" type="hidden" value="Hide">
				<input name="vAction" type="hidden" value="0">
        <input name="submit2" type='submit' value='取消对选定图片的隐藏'>
        &nbsp;&nbsp;&nbsp;&nbsp; </td>
    </tr>
  </form>
</table>
<%
End Sub
%>